home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dskut
/
fdform18.zip
/
FDFORMAT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-07-21
|
54KB
|
1,348 lines
{$A+,B-,D+,E+,F-,L+,N-,O-,R-,S-,V-}
{$M 8192,0,0}
PROGRAM FDFORMAT;
USES dos,auxdos,baseconv,desqview;
{Copyright (c) 1988-91, Christoph H. Hochstätter}
{Donated to the Public-Domain for non-commercial usage}
{Compiled in Turbo-Pascal 6.0}
{$IFDEF L49}
CONST text01 = 'Fehler ';
CONST text02 = '(A)bbrechen (W)iederholen (I)gnorieren ? ';
CONST t3 = 'W';
CONST text04 = 'Kein gültiges Laufwerk.';
CONST text05 = 'SUBST/ASSIGN/Netzwerk-Laufwerk.';
CONST text06 = 'Kein Floppy-Laufwerk.';
CONST text07 = 'Völlig unbekannte Laufwerksart';
CONST text08 = 'Ich formatiere Laufwerk ';
CONST text09 = ' Seite(n), ';
CONST text10 = ' Spuren, ';
CONST text11 = ' Sektoren/Spur, ';
CONST text12 = ' Basisverzeichniseinträge, ';
CONST text13 = ' Sektor(en)/Cluster, Sektoren-Versatz: ';
CONST text14 = 'Kopf: ';
CONST text15 = ', Zylinder: ';
CONST text17 = 'Formatierfehler im Systembereich: Programm abgebrochen.';
CONST text18 = 'Mehr als ';
CONST text19 = ' Sektoren nicht lesbar. Programm abgebrochen.';
CONST text20 = ' als schlecht markiert';
CONST text21 = 'Format-Identifizierung: ';
CONST text22 = 'Gesamtsektoren auf der Diskette: ';
CONST text23 = 'Sektoren pro Spur: ';
CONST text24 = 'Schreib-/Leseköpfe: ';
CONST text25 = 'Bytes pro Sektor: ';
CONST text26 = 'Versteckte Sektoren: ';
CONST text27 = 'Boot-Sektoren: ';
CONST text28 = 'Anzahl der FAT''s: ';
CONST text29 = 'Sektoren pro FAT: ';
CONST text30 = 'Cluster auf Diskette: ';
CONST text79 = 'Disketten-Seriennummer: ';
CONST text34 = 'Dieses Laufwerk kann nicht formatiert werden.';
CONST text35 = 'Laufwerk ist physisch ';
CONST text36 = 'BIOS Umschaltung 40/80 Spuren: ';
CONST text37 = 'nach XT-Standard';
CONST text38 = 'nach EPSON QX-16 Standard';
CONST text39 = 'nach AT-Standard';
CONST text40 = 'wird nicht unterstützt';
CONST text41 = 'Syntax Error beim Aufruf.';
CONST text42 = 'Format ist: FDFORMAT drive: [Optionen]';
CONST text43 = ' Beispiel: FDFORMAT a: t41 h2 s10 C1 D112';
CONST text44 = 'Parameter Bedeutung Voreinstellung';
CONST text45 = 'drive: Laufwerk, das formatiert werden soll ----';
CONST text46 = 'Tnn Anzahl der Spuren je Seite 40/80 je nach Laufwerk';
CONST text47 = 'Hnn Anzahl der Seiten 2';
CONST text48 = 'Nnn Anzahl der Sektoren je Spur 9/15/18 je nach Laufwerk';
CONST text49 = 'Cn Anzahl der Sektoren je Cluster 1 bei HD, 2 bei DD';
CONST text50 = 'Dnnn Anzahl der Basisverzeichniseinträge 224 bei HD, 112 bei DD';
CONST text51 = 'Inn Interleave-Faktor 1';
CONST text52 = 'Fnnn Format festlegen';
CONST text53 = 'R Formatierung nicht verifizieren';
CONST text69 = 'Bnnn Diskettentypbyte festlegen je nach Format';
CONST text70 = 'Gnnn GAP-Länge festlegen je nach Format';
CONST text71 = 'Lesen Sie die FDFORMAT.DOC Datei für weitere Optionen';
CONST text54 = 'Dieses Programm benötigt mindestens DOS 3.20.';
{$IFOPT G+}
CONST text55 = 'FDFORMAT/286 - Formatieren von Disketten mit erhöhter Kapazität';
{$ELSE}
CONST text55 = 'FDFORMAT/88 - Formatieren von Disketten mit erhöhter Kapazität';
{$ENDIF}
CONST text56 = 'Copyright (c) 1988-1991, Christoph H. Hochstätter, Ver 1.8';
CONST text57 = 'Sie können nur 1 oder 2 Seiten nehmen.';
CONST text58 = 'Sie sollten schon mindestens eine Spur formatieren.';
CONST text59 = 'Interleave muß von 1-';
CONST text60 = ' sein.';
CONST text61 = 'WARNUNG! DOS verwaltet bei Disketten nur 1 oder 2 Sektoren/Cluster';
CONST text62 = 'WARNUNG! Zu viele Spuren. Das kann Ihr Laufwerk beschädigen';
CONST text63 = 'WARNUNG! DOS verwaltet bei Disketten maximal 240 Basisverzeichniseinträge';
CONST text64 = 'Neue Diskette in Laufwerk ';
CONST text65 = ': einlegen';
CONST text66 = 'Anschließend ENTER drücken (ESC=Abbruch)';
CONST text67 = 'Übertragungsrate: ';
CONST text68 = ', GAP-Länge: ';
CONST text72 = 'EIN';
CONST text73 = 'AUS';
CONST text74 = 'Bitte Diskettennamen eingeben (max. 11 Zeichen): ';
CONST text75 = 'Fehler beim Erstellen des Namens.';
CONST text76 = 'Syntax-Fehler in der Datei FDFORMAT.CFG.';
CONST text77 = 'Lesefehler in der Datei FDFORMAT.CFG.';
CONST text78 = ', Sektoren: ';
CONST text80 = 'Fehler beim Aufbau eines neuen Disk-Parameter-Blocks. DOS-Fehler: ';
CONST text81 = 'Altes Format kann nicht gelesen werden. Formatieren ohne löschen nicht möglich.';
CONST text31 = ' formatierte Bytes gesamt';
CONST text32 = ' Bytes im Boot-Sektor';
CONST text33 = ' Bytes im Basis-Verzeichnis';
CONST text82 = ' Bytes in der FAT';
CONST text83 = ' Bytes in schlechten Sektoren';
CONST text84 = ' Bytes frei fuer Dateien';
CONST text85 = ' Bytes tatsächlich frei';
CONST text86 = 'Setze Laufwerksparameter über Spur/Sektor-Kombination...';
CONST text87 = 'Setze Laufwerksparameter über Diskettentyp...';
CONST text88 = 'erfolgreich';
CONST text89 = 'Fehler';
CONST text90 = 'WARNUNG! BIOS-Media-Byte konnte nicht korrekt gesetzt werden.';
CONST text91 = 'BIOS-Media-Byte ist: ';
CONST text92 = 'x, Soll: ';
CONST text93 = 'Laufwerksparameter durch direktes Schreiben des BIOS-Media-Bytes gesetzt.';
CONST text94 = 'Programmabbruch durch den Benutzer.';
CONST error01 = 'Falsches Disketten-Steuer-Kommando';
CONST error02 = 'Formatierung nicht gefunden';
CONST error03 = 'Diskette ist schreibgeschützt';
CONST error04 = 'Sektor nicht gefunden';
CONST error06 = 'Unerlaubter Diskettenwechsel';
CONST error08 = 'DMA-Baustein übergelaufen';
CONST error09 = 'Mehr als 64 kByte im DMA Baustein';
CONST error0c = 'Format nicht kompatibel mit Datenübertragungsrate';
CONST error10 = 'Zyklische Redundanzprüfung fehlerhaft';
CONST error20 = 'Diskettenadapter fehlerhaft';
CONST error40 = 'Laufwerkskopf konnte nicht positioniert werden';
CONST error80 = 'Keine Diskette im Laufwerk oder falsch eingelegt';
CONST errorxx = 'Fehlerursache unbekannt';
{$ENDIF}
{$IFDEF L1}
const text01 = 'Error ';
const text02 = '(A)bort (R)etry (I)gnore ? ';
const t3 = 'R';
const text04 = 'No valid drive.';
const text05 = 'SUBST/ASSIGN/Network-Drive.';
const text06 = 'Not a floppy drive.';
const text07 = 'Unknown drive type.';
const text08 = 'Formatting drive ';
const text09 = ' Head(s), ';
const text10 = ' Tracks, ';
const text11 = ' Sectors/track, ';
const text12 = ' Root Directory Entries, ';
const text13 = ' Sector(s)/Cluster, Sector-Shift: ';
const text14 = 'Head: ';
const text15 = ', Cylinder: ';
const text17 = 'Format error in system area: Program aborted.';
const text18 = 'More than ';
const text19 = ' sectors unreadable. Program aborted.';
const text20 = ' marked as bad';
const text21 = 'OEM-Entry: ';
const text22 = 'Total sectors on disk: ';
const text23 = 'Sectors per track: ';
const text24 = 'Heads: ';
const text25 = 'Bytes per sector: ';
const text26 = 'Hidden sectors: ';
const text27 = 'Boot-sectors: ';
const text28 = 'Number of FATs: ';
const text29 = 'Sectors per FAT: ';
const text30 = 'Total clusters on disk: ';
const text79 = 'Volume serial number: ';
const text34 = 'This drive cannot be formatted.';
const text35 = 'Drive is physical ';
const text36 = 'BIOS double-step support: ';
const text37 = 'XT-like';
const text38 = 'EPSON QX-16 like';
const text39 = 'AT-like';
const text40 = 'Not available or unknown';
const text41 = 'Syntax Error.';
const text42 = 'Usage is: FDFORMAT drive: [options]';
const text43 = ' Example: FDFORMAT a: t41 h2 s10 C1 D112';
const text44 = 'Option Meaning Default';
const text45 = 'drive: drive to be formatted none';
const text46 = 'Tnn Number of tracks 40/80 depends on drive';
const text47 = 'Hnn Number of heads 2';
const text48 = 'Nnn Number of sectors per track